home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / Leibniz / Leibniz next >
Text File  |  1990-04-11  |  753b  |  59 lines
  1. #   Giles
  2. #   Leibniz robot
  3. #   19 January 1990
  4. #   last revision 17 March 1990
  5.  
  6. # 11 a' store
  7. 3 speedx' store
  8. -3 speedy' store
  9.  
  10.  
  11. main:
  12.     -11 aim + aim' store
  13.     collision switch if
  14.     x 30 < east if
  15.     x 270 > west if
  16.     y 270 > north if
  17.     y 30 < south if
  18.     collision switch if
  19.     range 0 ! bang if
  20.     main jump
  21.  
  22. scan:
  23.     drop
  24.     main jump
  25.  
  26. bang:
  27.     50 missile' store
  28.     drop
  29.     seek jump
  30.     
  31. seek:
  32.     range 0 ! shoot scan ife
  33.     collision switch if
  34.     energy 20 < scan if
  35.     seek jump
  36.  
  37. shoot:
  38.     energy 2 / missile' store
  39.     return
  40.  
  41. switch:
  42.     15 movex' store
  43.     return
  44.  
  45. north:
  46.     -3 speedy' store
  47.     return
  48.  
  49. south:
  50.     3 speedy' store
  51.     return
  52.  
  53. east:
  54.     3 speedx' store
  55.     return
  56.  
  57. west:
  58.     -3 speedx' store
  59.     return